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Chapter 1 

Introduction 


This part gives the definition for portable COBOL applications across 
X/OPEN systems. It identifies the common set of language facilities that 
will be supported by COBOL compilers on the X/OPEN systems of the 
member companies. 

The international standard for COBOL is that defined in the American 
National Standards document “ANSI X3.23 - 1974”, to which most 
current COBOL compilers substantially conform. 

The ANSI standard is incomplete in the area of facilities for interaction 
with the on-line user. To overcome this deficiency, most COBOL 
compilers provide extensions to the ACCEPT and DISPLAY verbs, but 
unfortunately they do this in incompatible ways. It is necessary therefore 
to specify the form of ACCEPT and DISPLAY to be included in the 
Common Applications Environment. 

In order to have a definition that is achievable on X/OPEN systems within 
a short timeframe, and one that would immediately have wide 
acceptance, it has been based on the definition of COBOL embodied in a 
popular product, Micro Focus LEVEL II COBOL which itself conforms to 
the ANSI Standard. 

The Micro Focus LEVEL II language specification includes enhancements 
to the ANSI standard in addition to the extensions to ACCEPT and 
DISPLAY. None of these is currently included in the X/OPEN definition, 
although they may be supported on specific member systems. 

The X/OPEN definition also applies a few restrictions to the ANSI based 
parts of the LEVEL II definition. 

Whilst the definition is based on the specification embodied in a 
particular product, the means of implementation across X/OPEN systems 
may vary. 
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Introduction 


The X/OPEN COBOL definition is given in Chapter 2. It is derived from 
the Syntax Summary (Appendix F) of the LEVEL II COBOL Reference 
Manual, with the elements that have been included in the X/OPEN 
definition clearly printed in bold type. The semantics of the language are 
those of the ANSI 74 standard as documented in the Micro Focus 
LEVEL II COBOL language specification. The LEVEL II facilities that are 
additional to the ANSI standard are indicated by shading. With the 
exception of the extensions to ACCEPT and DISPLAY these are all 
excluded from the X/OPEN definition. 

Chapter 3 summarises the functions in the ANSI 74 standard, and the 
LEVEL II specification, which are excluded from the X/OPEN definition. 
These are described in relation to the ANSI defined modules. This 
information is included to allow those familiar with the ANSI standard to 
obtain a quick appreciation of the X/OPEN definition, and it is useful in 
assessing whether a particular compiler is likely to meet the specification. 
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Chapter 2 

COBOL Definition 


The definition is derived from the Syntax Summary sheets from the Micro 
Focus LEVEL II COBOL Reference Manual (Appendix F) with the 
following specific notation: 

• Shaded areas indicate Micro Focus extensions to the ANSI 

standard or features that are documentary only. 
These are distinguished to the right of the 
shading by an E or an F for the extensions and a 
D for documentary only. 

• Bold type Items included in the X/OPEN definition are 

printed in bold type. For portability across 
X/OPEN systems, only these elements should be 
used in application programs. 

The tables use standard COBOL notation to define the language syntax: 


• Upper case is used for COBOL language keywords. Those 

underlined must be present if the clause is 
present; those not underlined are “noise words”, 
which may be included to improve readability but 
are otherwise not processed by the compiler. 

• Lower case strings represent substitutable arguments, for 

example data names and literal values. 


• Square brackets are used to enclose optional clauses (according 

to the context); any clause not so enclosed is 
mandatory. 

• Braces are used to enclose alternatives. One of the 

alternatives enclosed within the braces must be 
used. Note that braces and square brackets may 
be used together to indicate alternative 
constructs within an optional clause. 


• Elipses ... are used to denote that the preceeding clause 

may be repeated a number of times. There must 
be at least one occurence, unless the clause is 
optional (enclosed in square brackets). 
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COBOL Definition 


The specification of Micro Focus LEVEL II COBOL includes a further 
category of clause, those which are optional unless the ANSI parameter 
is supplied to the compiler. Since the X/OPEN definition is the ANSI 
standard as embodied in Micro Focus LEVEL II COBOL, these clauses 
are shown as mandatory. 
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COBOL Definition 


IDENTIFICATION DIVISION 


GENERAL FORMAT FOR IDENTIFICATION DIVISION 


IDENTIFICATION DIVISION . 

PROGRAM-ID . program name 


[ author . 

[ installation . 

[ date-written . 

[ date-compiled . 

[ security . 


[comment entry].. 
[comment entry].. 
[comment entry].. 
[comment entry].. 
[comment entry].. 


] 

] 

] 

] 

] 
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ENVIRONMENT DIVISION 


COBOL Definition 


GENERAL FORMAT FOR ENVIRONMENT DIVISION 


ENVIRONMENT DIVISION . 

CONFIGURATION SECTION . 

SOURCE-COMPUTER . 

source-computer-entry [WITH 


OBJECT-COMPUTER. 

object-computer-entry 


, MEMORY SIZE integer 


[ WORDS 

CHARACTERS 

MODULES 


[, PROGRAM COLLATING SEQUENCE IS alphabet-name] 
[, SEGMENT-LIMIT IS segment number]. 
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COBOL Definition 


ENVIRONMENT DIVISION 


[ SPECIAL-NAMES . 

' f SYSOUtI I** mnemonic-name-1 


[, [ TAB ] IS mnemonic-name-2] 
[,l£ORMEEEDJ IS mnemonic-name-3] 


SWITCH 

0' 


7 


[IS mnemonic-name] ON STATUS IS condition-name-1 


[ OFF STATUS IS condition-name-2 


, alphabet-name IS 


STANDARD-1 


[THROUGHl 



NATIVE 

literal-1 

ITHRU j literal-2 





lALSO literal-3 [. ALSO literal-41. 





[THROUGH] 



literal-5 

ITHRU j literal-6 




ALSO literal-7 [. ALSO literal-81 

J ■■■ - 


[. CURRENCY SIGN IS literal-9] 

[. CURSOR IS data-name-1] 
[.CONSO LE IS CRT] ] 

[. CRT STATUS IS data-name-2]. 


E 

E 
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ENVIRONMENT DIVISION 


COBOL Definition 


INPUT-OUTPUT SECTION. 

FILE-CONTROL , 
{file-control-entry)... 


-O-CONTROL . 


;RERUN 


qm ffile-name-1 

l implementor-name 


EVERY 


[END OF] 


integer-1 RECORDS 


f REEL] 
l UN IT j 


OF file-name-2 


integer-2 CLOCK-UNITS 
condition-name 


; SAME 


RECORD 

SORT 

SORT-MERGE 


AREA FOR 

file-name-3 [, file-name-4] 


:tape contains 

file-name-5 [ POSITION integer-31 

[, file-name-6 [POSITION integer-4] ] 


D 


D 
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COBOL Definition 


ENVIRONMENT DIVISION 


GENERAL FORMAT FOR FILE-CONTROL ENTRY 
SEQUENTIAL SELECT: 


SELECT file-name 


OPTIONAL 

NOT OPTIONAL 


file-name-1 


E 



[LINE ADVA 

VICING 


ASSIGN TO 

MULTIPLE 

[REEL] 

UNIT] 

FILE 


external-file-name-literal 

file-identifier 


[ external-file-name-literal 
Ifile-identifier 


D 


(areas) 


; ORGANIZATION IS 


SEQUENTIAL 

LINE SEQUENTIAL 


E 


[; ACCESS MODE IS SEQUENTIAL ! 


; LOCK MODE IS 


[ EXCLUSIVE 

AUTOMATIC 

MANUAL 


F 


[; FILE STATUS IS data-name]. 
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ENVIRONMENT DIVISION 


COBOL Definition 


RELATIVE SELECT: 


SELECT file-name 


ASSIGN TO f externa l^*l e - name "li tera l 
[file-identifier 


[ external-file-name-literal 
[file-identifier 


E 


; RESERVE integer-1 {>\REA S } 
ORGANIZATION IS RELATIVE 


; ACCESS MODE IS 


[SEQ U EN TIAL 

[ RANDOM 

[[ DYNAMIC 


D 


[, RELATIVE KEY IS data-name 
, RELATIVE KEY IS data-name 


("lock mode is 



^y T O^T| C }[wiTH LOCK ON [MULT 

■ |pm [RECORD 111 
[RECORDS] 


:xclusive 



F 


[; FILE STATUS IS data-name]. 
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COBOL Definition 


ENVIRONMENT DIVISION 


INDEXED SELECT: 


SELECT file-name [ NOT OPTIONAL1 

external-file-name-literal 
file-identifier 


ASSIGN TO f extema l"^l e ‘ name “l' tera l 
l file-identifier 


; RESERVE integer-1 


[AREA 1 
[AREASj 


D 


; ORGANIZATION IS INDEXED 


; ACCESS MODE IS 


SEQUENTIAL 

RANDOM 

DYNAMIC 


LOCK MODE IS 

[[ MANUAL 

[ AUTOMATIC 

[ exclusive 


WITH LOCK ON [ MULTIPLE ! 


[ REC ORD 1 
[ RECORDS 


F 


; RECORD KEY IS data-name-1 

[; ALTERNATE RECORD KEY IS data-name-2 [WITH DUPLICATES ! ] ... 
[; FILE STATUS IS data-name-3]. 
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ENVIRONMENT DIVISION 


COBOL Definition 


SORT OR MERGE SELECT: 


SELECT file-name 


accipm m f external-file-name-literal 
AS ^ MT0 file-identifier 
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COBOL Definition 


DATA DIVISION 


GENERAL FORMAT FOR THE DATA DIVISION 


DATA DIVISION . 

' FILE SECTION . 

FD file-name 

BLOCK CONTAINS [integer-1 IQ] integer 2 { qhARACT FRS 1 
[; RECORD CONTAINS [integer-1 IQ] integer-2 CHARACTERS] 


;LABEL{ 


RECORD IS 
RECORDS ARE 


II 


STANDARD ] 

OMITTED j 


[: VAU IE OF dala-name-1 IS |f e l J| n 1 ame ‘ 2 ] 


da t a. ram e.3,sfe^ 4 


; DATA [ reCORD SARe! data-name-3 data-name-4] 




; LINAGE IS (frftege's 6 ' 5 ) LINES 

, WITH FOOTING AT [ ' e ' 6 ) 


[, LINES ATTOpj^™- 7 )] 

.LINES AT BOTTOM J e ' 8 } 

[jCQDEzSEI IS alphabet-name] . 

[record-description-entry ]... 

SD file-name 

[; RECORD CONTAINS [integer-1 TO] integer-2 CHARACTERS] 

[’ DATA { rECORD SARe} da ^ aname ' 1 1- data-name-2].... 
record-description-entry . 


D 

D 

D 

D 

D 

D 


D 


D 
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DATA DIVISION 


COBOL Definition 


WORKING-STORAGE SECTION 

77-level-description-entry 
record-description-entry ] ... 

LINKAGE SECTION 

77-level-description-entry 
record-description-entry ]... 

COMMUNICATION SECTION 

[ communication-description-entry ] 
[record-description-entry . 
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COBOL Definition 


DATA DIVISION 


GENERAL FORMAT FOR DATA DESCRIPTION ENTRY 
FORMAT 1: 

level-number (^-name-i) 

[; REDEFINES data-name-2] 

; | p|c TURE ] IS picture-string 


; I USAGE IS] 


[COMPUTATIONAL 


COMP 


COMPUTATIONAL-3 


COMP-3 


DISPLAY 


INDEX 



[; SIGN IS { JRAU-In G } SE PARATE CHARACTER] 


: OCCURS 

f integer -1 TO integer-2 TIMES DEPENDING ON data-name-3 
linteger-2 TIMES 


f ASCENDING . . . . 

i DESCENDING | IS data-name-4 [, data-name-5] 

[IND EXED BY index-name-1 [, index-name-2]... ] 


[ [SYNCHRONIZED] 

(LEFT ]1 

’ [sync j 

| RIGHT] 


D 


[ JUSTIFIED ] 

[JUST 


RIGHT 


[; BLANK WHEN ZERO] 


f: VALUE IS literal]. 
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DATA DIVISION 


COBOL Definition 


FORMAT 2: 


66 data-name-1; RENAMES data-name-2 


[ THROUGH 

[ THRU 


data-name-3 


FORMAT 3: 


88 condition-name 


[ VALUE IS 1 
[ VALUES AREJ 


literal-1 


[ THROUGH 

[ THRU 


literal-2 


, literal-3 


THROUGH 

THRU 


literal-4 
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COBOL Definition 


DATA DIVISION 


GENERAL FORMAT FOR 
COMMUNICATION DESCRIPTION ENTRY 

FORMATl: 


CD cd-name; 

[ [ ; SYMBOLIC QUEUE IS data-name-11 

f; SYMBOLIC SlJB-QUEUE-1 IS data-name-21 

1; SYMBOLIC SlJB-QUEUE-2 IS data-name-31 

1; SYMBOI 1C SlJB-QUEUE-3 IS data-name-41 

I; MESSAGE DATE IS data-name-51 

FOR MNITIAL1 INPUT 

[; MESSAGE TIME IS data-name-61 

T; SYMBOLIC SOURCE IS data-name-71 

r ; TEXT LENGTH IS data-name-81 

1; END KEY IS data-name-91 

T; STATUS KEY IS data-name-101 

f ; MESSAGE COUNT IS data-name-111 ] 

[data-name-1, data-name-2,..., data-name-11] 
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DATA DIVISION 


COBOL Definition 


FORMAT 2: 

CD Cd-name; FOR OUTPUT 
[; DESTINATION COUNT IS data-name-1] 

[ ; TEXT LENGTH IS data-name-2] 

[; STATUS KEY IS data-name-3] 

DESTINATION TABLE OCCURS integer-2 TIMES 
[ ; INDEXED BY index-name-1 [, index-name-2]... ] 
[; ERROR KEY IS data-name-4] 

[; SYMBOLIC DESTINATION IS data-name-4]. 
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COBOL Definition 


PROCEDURE DIVISION 


GENERAL FORMAT FOR PROCEDURE DIVISION 

DECLARATIVE FORMAT: 

PROCEDURE DIVISION 

[ USING data-name-1 [, data-name-2]... ]. 

DECLARATIVES . 

section-name SECTION [segment-number]. 

declarative-sentence 

paragraph-name. 

[ [sentence ].. .J ... ... 

END DECL ARATI VE S. 

section-name SECTIO N [segment-number]. 



paragraph-name, 

[sentence ]... 


NON-DECLARATIVE FORMAT: 

PROCEDURE DIVISION 

[ USING data-name-1 [, data-name-2]... ]. 

[paragraph-name. ] 

[ [sentence ]... j ... 
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ACCEPT 


COBOL Definition 


GENERAL FORMAT FOR ACCEPT STATEMENT 


ACCEPT identifier FROM 


[ CONSOLE 

[mnemonic-name 


ACCEPT data-name-1 


AT 

AT 


data-name-2 

literal-1 

data-name-2 

literal-1 


FROM CRT 


E 


ACCEPT identifier FROM 


DATE 


ACCEPT cd-name MESSAGE COUNT 
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COBOL Definition 


ADD-ALTER 


GENERAL FORMAT FOR ADD STATEMENT 


ADD 


f identifier-ll identifier-2 
lliteral-1 j [, literal-2 


TO identifier-m [ ROUNDED ! 

[, identifier-n [ROUNDED] ] ... 

[; ON SIZE ERROR imperative-statement] 


f identifier-11 

f identifier-2] 

, identifier-3 

[literal-1 j’ 

[literal-2 j 

, literal-3 


GIVING identifier-m [ ROUNDED ! [, identifier-n [ROUNDED] ] ... 
[; ON SIZE ERROR imperative-statement 1 


ADD 


f CORRESPONDING 

[CORE 


identifier-1 TO identifier-2 [ROUNDED] 


[; ON SIZE ERROR imperative-statement 1 


GENERAL FORMAT FOR ALTER STATEMENT 


ALTER (procedure-name-1 TO [ PROCEED TO! procedure-name-2}... 
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CALL - COMMIT 


COBOL Definition 


GENERAL FORMAT FOR CALL STATEMENT 


CALL 


[identifier-1] 

I literal-1 I 


[ USING data-name-1 [, data-name-2] 


] 


t; ON 


- statement] 


GENERAL FORMAT FOR CANCEL STATEMENT 

rANm I identifier-11 f, identifier-2 
^ 0 (literal-1 j , literal-2 


GENERAL FORMAT FOR CLOSE STATEMENT 




[REEL} 

[with no rewind] 

CLOSE file-name-1 

ILMIJ 

WITH 

FOR REMOVAL 



^REWIND j 


, file-name-2 

"[REEL] 

[ UNIT j 

WITH 

WITH NO REWIND]! 
FOR REMOVAL 

'no REWIND] 

LOCK j 


GENERAL FORMAT FOR COMMIT STATEMENT 

COMMIT 
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COBOL Definition 


COMPUTE - DISABLE 


GENERAL FORMAT FOR COMPUTE STATEMENT 

COMPUTE identifier-1 [ROUNDED] [, identifier-2 [ROUNDED] ] ... 
= arithmetic-expression 
[; ON SIZE ERROR imperative statement] 


GENERAL FORMAT FOR COPY STATEMENT 


f text-name 

'fOFl 

(library-name ] 

| external-file-name-literal j 

LlM j 

j library-name-literal j 




= = pseudo-text-1 = = 


= = pseudo-text-2 = = 



REPLACING 

I 

identifier-1 

literal-1 

BY 

identifier-2 

literal-2 


... 

_ 


word-1 


word-2 




GENERAL FORMAT FOR DELETE STATEMENT 

D ELETE file-name RECORD [; INVALID KEY imperative-statement] 


GENERAL FORMAT FOR DISABLE STATEMENT 


DISABLE | 


INPUT [ TERMINALl 
OUTPUT 


cd-name WITH KEY 


identifier-1 ] 
literal-1 j 
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DISPLAY - DIVIDE 


COBOL Definition 


GENERAL FORMAT FOR DISPLAY STATEMENT 


DISPLAY 


DISPLAY 


f identifier-11 , 
[literal-1 j 


fdata-name-1 

[literal-3 


identifier-2 

literal-2 


[UPON CONSOLE] 


AT 


data-name-2 

literal-4 


UPON 


CRT 1 

CRT-UNDER J 


E 


GENERAL FORMAT FOR DIVIDE STATEMENT 


“HiiSSJ" 1 ! 

INTO identifier-2 I ROUNDED1 
[, identifier-3 f ROUNDEDl ] ... 

[; ON SIZE ERROR imperative-statement] 


n ,\/,nc f identifier-11 f INTO ] f identifier-21 
UIVIUb [literal-1 j [BY Jlliteral-2 j 

GIVING identifier-3 [ROUNDED] 

[, identifier-4 f ROUNDED l ] ... 

[; ON SIZE ERROR imperative-statement 1 


mx/inr f identifier-11 f lNTO l f identifier-21 
umutl [literal-1 J [BY j [literal-2 j 

GIVING identifier-3 [ ROUNDED ] 

REMAINDER identifier-4 

[; ON SIZE ERROR imperative-statement 1 
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COBOL Definition 


ENABLE - IF 


GENERAL FORMAT FOR ENABLE STATEMENT 

ENABLE [ M ]t [IER 1^1AL]| cd . nameW|THK£Y [identifier-1 J 

GENERAL FORMAT FOR ENTER STATEMENT 

ENTER language-name [routine-name]. D 


GENERAL FORMAT FOR EXIT STATEMENT 

EXIT [PROGRAM]. 

GENERAL FORMAT FOR GO TO STATEMENT 

GOTO [procedure-name]. 

GO TO procedure-name-1 {, procedure-name-2)... 
DEPENDIN G ON identifier 

GENERAL FORMAT FOR IF STATEMENT 

IE condition; IHEN { neXTSENTENCe } 

p. nr f statement-2 1 
( NEXT SENTENCE ] 
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INSPECT - MERGE 


COBOL Definition 


GENERAL FORMAT FOR INSPECT STATEMENT 


INSPECT identifier-1 TALLYING tally-clause 

INSPECT identifier-1 REPLACING replacing-clause 

INSPECT identifier TALLYING tally-clause REPLACING replacing-clause 


TALLY CLAUSE 


identifier-2 FOR 


[ ALL ] fidentifier-31 
i LEADING j i literal-2 ] 


CHARACTERS 
BEFORE 

AFTER 


INITIAL (identifier-4 
lliteral-3 


1 


REPLACING CLAUSE 


CHARACTERS BY 

[ ALL 

, LEADING 
FIRST 


f identifier-6 
j literal-4 

f identifier-5 
* [literal-3 


[BEFORE 

AFTER 


INITIAL 


DV f identifier-6 
M literal-4 


[ BEFORE ] 
[ AFTER j 


INITIAL 


f identifier-7 f 


(literal-5 ] 

)•••] 


f identifier-7] 
[literal-5 j 


GENERAL FORMAT FOR MERGE STATEMENT 


MERGE file-name-1 


ON 


[ ASCENDING 1 
[ DESCENDING J 


KEY data-name-1 [, data-name-2]... 


ON | DESCEND ING } KEYdata_name ' 3 L data-name-4]... 
[COLLATING SEQUENCE IS alphabet-name] 

USING file-name-2, file-name-3 [, file-name-4]... 


OUTPUT PROCEDURE IS section-name-1 
GIVING file-name-5 


[ THROUGH 

[ THRU 


section-name-2 
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COBOL Definition 


MOVE - MULTIPLY 


GENERAL FORMAT FOR MOVE STATEMENT 

MOVE { |f t e" a t j!i er ' 1 } IQ identifier-2 [, identifier-3]... 
MOVE { corr ESPONPING } identifier-1 TO identifier-2 


GENERAL FORMAT FOR MULTIPLY STATEMENT 


MULTIPLY [jgJjfMj 

BY identifier-2 f ROUNDEDl 
[, identifier-3 [ROUNDED] ] ... 

[; ON SIZE ERROR imperative-statement 1 


MULTIPLY 


identifier-1 

literal-1 


BY 


f identifier-2 ] 
[ literal-2 j 


GIVING identifier-3 [ ROUNDED! [, identifier-4 [ ROUNDED! ] ... 


[; ON SIZE ERROR imperative-statement 1 
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OPEN 


COBOL Definition 


GENERAL FORMAT FOR OPEN STATEMENT 


OPEN 


INPUT file-name-1 

, file-name-2 


REVERSED 
WITH NO REWIND _ 

REVERSED 
WITH NO REWIND 


OUTPUT file-name-3 [WITH NO REWIND] 
[, file-name-4 [WITH] 

1-0 file-name-5 [, file-name-6] ... 
EXTEND file-name-7 [, file-name-8] 
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COBOL Definition 


PERFORM 


GENERAL FORMAT FOR PERFORM STATEMENT 

PERFORM procedure-name-1 

{{HROUGH} procec j ure _ name _2 


PERFORM procedure-name-1 


{{HROUGM} p roce( j ure . name .2 


isssrii-* 


PERFORM procedure-name-1 


[ THROUGH 1_ namo , 

THRU I 


UNTIL condition-1 


PERFORM procedure-name-1 

[ THROUGH ] nr/ . nrfi namo 9 
| procedure-name-2 


VARYING 


[ identifier-2 
l index-name-1 


)from 


identifier-3 

index-name-2 

literal-1 


BY ji^jlr 4 ) UNTIL condition-1 


AFTER 


f identifier-5 
[index-name-3 


]from 


identifier-6 

index-name-4 

literal-3 


BY {jj“) UNTIL condition-2 


AFTER 


f identifier-8 
l index-name-5 


FROM 


[identifier-9 

index-name-6 

[literal-5 


BY {j^f^JuNIlL condition-3 
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READ - RETURN 


COBOL Definition 


GENERAL FORMAT FOR READ STATEMENT 

READ file-name [NEXT] RECORD [INTO identifier] 

[WITH [KEPI] LOCK] 

[; AT END imperative-statement 1 

READ file-name RECORD [INTO identifier] 

[WITH [KEPI] LOCK ] 

[; KEY IS data-name] 

[; INVALID KEY imperative-statement] 


GENERAL FORMAT FOR RECEIVE STATEMENT 

RECEIVE cd-name { 3E^flV1 m t } 1 nto identifier-1 

[; NO DATA imperative-statement] 


GENERAL FORMAT FOR RELEASE STATEMENT 

RELEASE record name [ FROM identifier] 


GENERAL FORMAT FOR RETURN STATEMENT 

RETURN file-name RECORD [ INTO identifier]; AT END imperative-statement 
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COBOL Definition 


REWRITE - SEARCH 


GENERAL FORMAT FOR REWRITE STATEMENT 

REWRITE record-name [FROM identifier] 

[; INVALID KEY imperative-statement] 


GENERAL FORMAT FOR SEARCH STATEMENT 


SEARCH identifier-1 


VARYING 


f identifier-2 
I index-name-1 


[; AT END imperative-statement-1 ] 

• WHEN condition-1 f imperative-statement-2 
' conamon 1 [ NEXT sentence 


; WHEN condition-2 


f imperative-statement-3 
[ NEXT SENTENCE 


SEARCH ALL identifier-1 [; AT END imperative-statement-1 ] 


; WHEN 


data-name-1 


IS EQUAL TO 
IS _= 


identifier-3 

literal-1 

arithmetic-expression-1 


condition-name-1 


AND 


data-name-2{!|^ TO 


identifier-4 

literal-2 

arithmetic-expression-2 


condition-name-2 

imperative-statement-2 \ 
NEXT SENTENCE 
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SEND - SET 


COBOL Definition 


GENERAL FORMAT FOR SEND STATEMENT 


SEND cd-name FROM identifier-1 


SEND cd-name [ FROM identifier-1] 


WITH identifier-2 
WITH ESI 
WITH EMI 
WITH EG! 


| before j AD van C in G 


[identifier-3] 

'line T 

[integer j 

LINESJ 


[mnemonic-name 

[ PAGE 


GENERAL FORMAT FOR SET STATEMENT 


SET f identifier-1 [identifier-2] ] 
l index-name-1 [index-name-2] J 


IQ 


identifier-3 

index-name-3 

integer-1 


o FT f index-name-4 

— [identifier-5 


[, index-name-5] 

[, identifier-6] 


[UP BY 1 
[DOWN BYJ 


identifier-4 

integer-2 

index-name-6 
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COBOL Definition 


SORT - STOP 


GENERAL FORMAT FOR SORT STATEMENT 


SORT file-name-1 ON 


[ ASCENDING 1 
1 DESCENDING J 


KEY data-name-1 [, data-name-2]... 


ON 


[ ASCENDING 1 
1 DESCENDING J 


KEY data-name-3 [, data-name-4].. 


[COLLATING SEQUENCE IS alphabet-name] 


INPUT PROCEDURE IS section-name-1 
USING file-name-2 , [file-name-3]... 


THROUGH 

THRU 


section-name-2 


[ OUTPUT PROCEDURE IS section-name-3 


THROUGH 

THRU 


section-name-4 


GIVING file-name-4 


GENERAL FORMAT FOR START STATEMENT 




IS EQUAL 

IS = 


START file-name 

KEY 

IS GREATER THAN 
IS> 

IS NOT LESS THAN 
IS NOT < 

data-name 


[; INVALID KEY imperative-statement ] 


GENERAL FORMAT FOR STOP STATEMENT 


STOP 


RUN 1 
literal] 
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STRING - SUBTRACT 


COBOL Definition 


GENERAL FORMAT FOR STRING STATEMENT 


STRING 


f identifier-1] 
l literal-1 j 


f identifier-2] 
l literal-2 j 


f identifier-3 

... DELIMITED BY literal-3 
[ SIZE 



identifier-4] 

f identifier-5] 

1 

literal-4 j 

’[literal-5 j 


{ identifier-6 
literal-6 
SIZE 


INTO identifier-7 [WITH POINTER identifier-8] 


[, ON OVERFLOW imperative-statement] 


GENERAL FORMAT FOR SUBTRACT STATEMENT 


SUBTRACT 


identifier-1 

literal-1 


f identifier-21 
[ literal-2 j 


FROM identifier-m [ ROUNDED] [, identifier-n [ROUNDED] ] ... 
[; ON SIZE ERROR imperative-statement] 

SUBTRACT [identifier-1 ][, identifier-2 
[literal-1 literal-2 

FROM) identifier-m] 

-[Iiteral-m J 

GIVING identifier-n [ ROUNDED! [, identifier-o [ ROUNDED1 ] ... 
[; ON SIZE ERROR imperative-statement 1 


SUBTRACT { coRR ESP ° NDING } ident i f i er ' 1 
FROM identifier-2 [ ROUNDED ! 

[; ON SIZE ERROR imperative-statement] 
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COBOL Definition 


UNSTRING - USE 


GENERAL FORMAT FOR UNSTRING STATEMENT 


UNSTRING identifier-1 


DELI MITED BY [ALL! j j|{|[ l a t , i |J er ' 2 


, QR [ALL] 


f identifier-3] 


l literal-2 j 



INTO identifier-4 [, D ELIMITE R IN identifier-5] [, COUNT IN identifier-6] 

[, identifier-7 [, DELIMITER IN identifier-81 [, COUNT IN identifier-9] ] .. 
[WITH POINTER identifier-10] [ TALLYING IN identifier-11] 

[; ON OVERFLOW imperative-statement 1 


GENERAL FORMAT FOR USE STATEMENT 


USE AFTER STANDARD [ |rrq P r TI ° N ) PROCEDURE 


ON 


file-name-1 [, file-name-2]... 

INPUT 

OUTPUT 

LQ 

EXTEND 


USE FOR DEBUGGING ON 


cd-name-1 

[ALL REFERENCES OF] identifier-1 

file-name-1 

procedure-name-1 


cd-name-2 


[ALL REFERENCES OF] identifier-2 
; file-name-2 
procedure-name-2 
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WRITE 


COBOL Definition 


GENERAL FORMAT FOR WRITE STATEMENT 

WRITE record-name [FROM identifier-1] 

integer If LINE 1 
identifier-2] 1 LINES J 


; AT | fND-OF-PAGE j j mpera tj ve statement 

WRITE record-name [ FROM identifier] 

[; INVALID KEY imperative-statement] 


[ ^ advancing 


E 
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COBOL Definition 


Conditions 


GENERAL FORMAT FOR CONDITION STATEMENTS 


Relation condition: 


I identifier-1 
literal-1 

arithmetic-expression-1 

index-name-1 


IS T NOTl GREATER THAN 
IS [NOTl LESS THAN 
IS [NOTl EQUAL to 
IS rNOTl > 

IS [NOT] < 

IS [NOT] = 


identifier-2 

literal-2 

arithmetic-expression-2 

index-name-2 


Class condition: 


identifier IS [ NOT 


NUMERIC 1 
ALPHABETIC ] 


Sign condition: 


arithmetic-expression IS [ NOT l 


POSITIVE 

NEGATIVE 

ZERO 


Condition-name condition: 

condition-name 


Switch-status condition: 

condition-name 


Negated simple condition: 

NOT simple-condition 


Combined condition 

[ AND 


condition 


(OR 


condition 


Abreviated combined relation Condition: 


relation-condition 



[ NOT l [relational-operator] object 
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Miscellaneous Formats 


COBOL Definition 


MISCELLANEOUS FORMATS 


QUALIFICATION: 


[data-name-1 

[condition-name 



data-name-2 


paragraph-name 



section-name 


text-name 



library-name 


SUBSCRIPTING: 

ISldS-name) (subscript ! [, SPbscipt-2 1 , subscript-31 ]) 
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COBOL Definition 


Miscellaneous Formats 


INDEXING: 


data-name 1 ( I index-name-1 r f . i. itora i 1 
condition-name) ( (literal-1 Ll±Jliteral-zj J 

' {!Steral-3 ame 2 [ 1 ± ) IKeral- 4 ] j 


f index-name-3 
’ 1 literal-5 


[ (±) literal-6 



IDENTIFIER: FORMAT 1 


data-name-l 


OF 

IN 


^subscript-1 [ 


data-name-2 ... 

, subscript-2 [, subscript-3] 


i)] 


IDENTIFIER: FORMAT 2 


data-name-l 



data-name 


4 


a index-name-1 
literal-1 


[ {±} literal-2] j 


-| iite ™ e ' 2 [ {± } |iteral ’ 4 


f index-name-3 
’ 1 literal-5 
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Chapter 3 

Summary of Exclusions 


This Chapter summarises the exclusions from both the ANSI Standard 
and the Micro Focus LEVEL II definition in a convenient form for those 
familiar with the ANSI document. It describes the exclusions in relation to 
the ANSI modules. It is also useful for assessing whether a particular 
compiler meets the X/OPEN definition. 

• Modules included in the ANSI standard but excluded by both LEVEL II 
and X/OPEN definitions: 

Report Writer 

• Complete modules that are in the ANSI standard and LEVEL II but are 
excluded from the X/OPEN definition: 

Communication 

Sort-Merge 

< Modules included by X/OPEN at a lower level (as defined in ANSI 
standard) than that defined in LEVEL II. The following list identifies the 
items excluded: 

Debug 

DEBUG-ITEM 

USE FOR DEBUGGING statement 

Inter-Program Communication 

CALL statement identifier-1 option 
ON OVERFLOW phrase of CALL statement 
CANCEL statement in entirety 
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Summary of Exclusions 


Individual elements included in both ANSI and LEVEL II but excluded 
from the X/OPEN definition: 

ENTER statement (Nucleus module) 

CLOSE statement phrases: 

REEL 

UNIT 

WITH NO REWIND 
FOR REMOVAL 


OPEN statement phrases: 

WITH NO REWIND 
REVERSED 

Individual elements in ANSI Standard, but defined as "documentary 
only" in LEVEL II COBOL, and excluded from X/OPEN definition: 

RERUN clause in Sequential I/O, 

Relative I/O and 
Indexed I/O modules 

MULTIPLE FILE TAPE clause in Sequential I/O module 

BLOCK CONTAINS clause in Sequential I/O, 

Relative I/O and 
Indexed I/O modules 


CODE-SET clause in Sequential I/O module 

LABEL clause in Sequential I/O, 

Relative I/O and 
Indexed I/O modules 


( 


Part V Page : 3.2 


X/OPEN Portability Guide (July 1985) 


Summary of Exclusions 


VALUE OF 


DATA 


clause in Sequential I/O, 
Relative I/O and 
Indexed I/O modules 

clause in Sequential I/O, 
Relative I/O and 
Indexed I/O modules 


RECORD CONTAINS clause in 


Sequential I/O, 
Relative I/O and 
Indexed I/O modules 
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